home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / actions.test next >
Text File  |  1995-06-29  |  941b  |  47 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize
  14. . setValues -allowShellResize true
  15.  
  16. xmPushButton .actionbtn managed
  17.  
  18. ############################
  19. # test action installation #
  20. ############################
  21. test action-1.1 {action with 1 arg} {
  22.     .actionbtn callActionProc {action("set x 1; set x")}
  23. } {1}
  24.  
  25. test action-1.2 {action with more args} {
  26.     .actionbtn callActionProc {action(set, x, 2, ;, set, x)}
  27. } {2}
  28.  
  29. test action-1.3 {action with more args, mixing quotes and non-quotes} {
  30.     .actionbtn callActionProc {action("set x", "0", ;, set, "x 3;", set, "x")}
  31. } {3}
  32.  
  33. test action-1.4 {action with varying separators} {
  34.    .actionbtn callActionProc {action(set  ,    x    ,4, ;    , set   ,
  35.     x
  36.     )}
  37. } {4}
  38.  
  39. #############
  40. # Finish up #
  41. #############
  42. if { ! $INTERACTIVE} {
  43.   .actionbtn destroyWidget
  44. } else {
  45.   . mainLoop
  46. }
  47.